BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / M / MaxQuadraFloat.sit / Maximizing Quadra FloatingPoint / FloatToLong.a next >

MacBinary | 1992-12-03 | 2.0 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: FloatToLong.a

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	System V 64-bit library `(executable/systemV64BitLibrary)`	ext	Unsupported
`1%`	dexvert	COFF Library `(other/coffLibrary)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Dec 3 17:43:29 1992, modified Thu Dec 3 17:43:29 1992, creator 'MPS ', type ASCII, 1325 bytes "FloatToLong.a" , at 0x5ad 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 46 6c 6f 61 74 54 | 6f 4c 6f 6e 67 2e 61 00 |..FloatT|oLong.a.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 2d 00 | 00 01 ac a7 44 3e 11 a7 |......-.|....D>..|
|00000060| 44 3e 11 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |D>......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 30 f9 00 00 |........|....0...|
|00000080| 09 53 45 47 09 09 27 46 | 6c 6f 61 74 54 6f 4c 6f |.SEG..'F|loatToLo|
|00000090| 6e 67 27 0d 09 43 41 53 | 45 09 4f 4e 0d 09 53 54 |ng'..CAS|E.ON..ST|
|000000a0| 52 49 4e 47 09 41 53 49 | 53 0d 09 4d 41 43 48 49 |RING.ASI|S..MACHI|
|000000b0| 4e 45 09 4d 43 36 38 30 | 32 30 0d 09 4d 43 36 38 |NE.MC680|20..MC68|
|000000c0| 38 38 31 0d 09 50 52 4f | 43 0d 0d 0d 3b 2a 2a 2a |881..PRO|C...;***|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 3b 20 6c 6f 6e 67 |********|*.; long|
|00000110| 20 52 6f 75 6e 64 58 54 | 6f 4c 6f 6e 67 28 6c 6f | RoundXT|oLong(lo|
|00000120| 6e 67 20 64 6f 75 62 6c | 65 20 78 29 0d 0d 09 65 |ng doubl|e x)...e|
|00000130| 78 70 6f 72 74 20 52 6f | 75 6e 64 58 54 6f 4c 6f |xport Ro|undXToLo|
|00000140| 6e 67 0d 0d 52 6f 75 6e | 64 58 54 6f 4c 6f 6e 67 |ng..Roun|dXToLong|
|00000150| 3a 0d 09 66 6d 6f 76 65 | 2e 78 09 34 28 73 70 29 |:..fmove|.x.4(sp)|
|00000160| 2c 66 70 30 09 09 3b 20 | 67 65 74 20 74 68 65 20 |,fp0..; |get the |
|00000170| 6e 75 6d 62 65 72 0d 09 | 66 6d 6f 76 65 2e 6c 09 |number..|fmove.l.|
|00000180| 66 70 63 72 2c 64 31 09 | 09 09 3b 20 73 61 76 65 |fpcr,d1.|..; save|
|00000190| 20 63 75 72 72 65 6e 74 | 20 72 6f 75 6e 64 69 6e | current| roundin|
|000001a0| 67 20 6d 6f 64 65 0d 09 | 66 6d 6f 76 65 2e 6c 09 |g mode..|fmove.l.|
|000001b0| 23 24 30 30 2c 66 70 63 | 72 09 09 3b 20 73 65 74 |#$00,fpc|r..; set|
|000001c0| 20 72 6f 75 6e 64 69 6e | 67 20 74 6f 77 61 72 64 | roundin|g toward|
|000001d0| 20 6e 65 61 72 65 73 74 | 0d 09 66 6d 6f 76 65 2e | nearest|..fmove.|
|000001e0| 6c 09 66 70 30 2c 64 30 | 09 09 09 3b 20 63 6f 6e |l.fp0,d0|...; con|
|000001f0| 76 65 72 74 20 74 6f 20 | 69 6e 74 65 67 65 72 0d |vert to |integer.|
|00000200| 09 66 6d 6f 76 65 2e 6c | 09 64 31 2c 66 70 63 72 |.fmove.l|.d1,fpcr|
|00000210| 09 09 09 3b 20 72 65 73 | 74 6f 72 65 20 72 6f 75 |...; res|tore rou|
|00000220| 6e 64 69 6e 67 20 6d 6f | 64 65 0d 09 72 74 73 0d |nding mo|de..rts.|
|00000230| 09 64 63 2e 62 09 27 52 | 6f 75 6e 64 58 54 6f 4c |.dc.b.'R|oundXToL|
|00000240| 6f 6e 67 27 0d 0d 0d 3b | 2a 2a 2a 2a 2a 2a 2a 2a |ong'...;|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 0d 3b 20 6c | 6f 6e 67 20 54 72 75 6e |****.; l|ong Trun|
|00000290| 63 58 54 6f 4c 6f 6e 67 | 28 6c 6f 6e 67 20 64 6f |cXToLong|(long do|
|000002a0| 75 62 6c 65 20 78 29 0d | 3b 09 72 65 74 75 72 6e |uble x).|;.return|
|000002b0| 28 20 28 6c 6f 6e 67 29 | 28 78 29 20 29 3b 0d 0d |( (long)|(x) );..|
|000002c0| 09 65 78 70 6f 72 74 20 | 54 72 75 6e 63 58 54 6f |.export |TruncXTo|
|000002d0| 4c 6f 6e 67 0d 09 0d 54 | 72 75 6e 63 58 54 6f 4c |Long...T|runcXToL|
|000002e0| 6f 6e 67 3a 0d 09 66 6d | 6f 76 65 2e 78 09 34 28 |ong:..fm|ove.x.4(|
|000002f0| 73 70 29 2c 66 70 30 09 | 09 3b 20 67 65 74 20 74 |sp),fp0.|.; get t|
|00000300| 68 65 20 6e 75 6d 62 65 | 72 0d 09 66 6d 6f 76 65 |he numbe|r..fmove|
|00000310| 2e 6c 09 66 70 63 72 2c | 64 31 09 09 09 3b 20 73 |.l.fpcr,|d1...; s|
|00000320| 61 76 65 20 63 75 72 72 | 65 6e 74 20 72 6f 75 6e |ave curr|ent roun|
|00000330| 64 69 6e 67 20 6d 6f 64 | 65 0d 09 66 6d 6f 76 65 |ding mod|e..fmove|
|00000340| 2e 6c 09 23 24 31 30 2c | 66 70 63 72 09 09 3b 20 |.l.#$10,|fpcr..; |
|00000350| 73 65 74 20 72 6f 75 6e | 64 69 6e 67 20 74 6f 77 |set roun|ding tow|
|00000360| 61 72 64 20 7a 65 72 6f | 20 28 43 2d 6c 69 6b 65 |ard zero| (C-like|
|00000370| 29 0d 09 66 6d 6f 76 65 | 2e 6c 09 66 70 30 2c 64 |)..fmove|.l.fp0,d|
|00000380| 30 09 09 09 3b 20 63 6f | 6e 76 65 72 74 20 74 6f |0...; co|nvert to|
|00000390| 20 69 6e 74 65 67 65 72 | 0d 09 66 6d 6f 76 65 2e | integer|..fmove.|
|000003a0| 6c 09 64 31 2c 66 70 63 | 72 09 09 09 3b 20 72 65 |l.d1,fpc|r...; re|
|000003b0| 73 74 6f 72 65 20 72 6f | 75 6e 64 69 6e 67 20 6d |store ro|unding m|
|000003c0| 6f 64 65 0d 09 72 74 73 | 0d 09 64 63 2e 62 09 27 |ode..rts|..dc.b.'|
|000003d0| 54 72 75 6e 63 58 54 6f | 4c 6f 6e 67 27 0d 0d 0d |TruncXTo|Long'...|
|000003e0| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|00000420| 6c 6f 6e 67 20 46 6c 6f | 6f 72 58 54 6f 4c 6f 6e |long Flo|orXToLon|
|00000430| 67 28 6c 6f 6e 67 20 64 | 6f 75 62 6c 65 20 78 29 |g(long d|ouble x)|
|00000440| 0d 0d 09 65 78 70 6f 72 | 74 20 46 6c 6f 6f 72 58 |...expor|t FloorX|
|00000450| 54 6f 4c 6f 6e 67 0d 0d | 46 6c 6f 6f 72 58 54 6f |ToLong..|FloorXTo|
|00000460| 4c 6f 6e 67 3a 0d 09 66 | 6d 6f 76 65 2e 78 09 34 |Long:..f|move.x.4|
|00000470| 28 73 70 29 2c 66 70 30 | 09 09 3b 20 67 65 74 20 |(sp),fp0|..; get |
|00000480| 74 68 65 20 6e 75 6d 62 | 65 72 0d 09 66 6d 6f 76 |the numb|er..fmov|
|00000490| 65 2e 6c 09 66 70 63 72 | 2c 64 31 09 09 09 3b 20 |e.l.fpcr|,d1...; |
|000004a0| 73 61 76 65 20 63 75 72 | 72 65 6e 74 20 72 6f 75 |save cur|rent rou|
|000004b0| 6e 64 69 6e 67 20 6d 6f | 64 65 0d 09 66 6d 6f 76 |nding mo|de..fmov|
|000004c0| 65 2e 6c 09 23 24 32 30 | 2c 66 70 63 72 09 09 3b |e.l.#$20|,fpcr..;|
|000004d0| 20 73 65 74 20 72 6f 75 | 6e 64 69 6e 67 20 74 6f | set rou|nding to|
|000004e0| 77 61 72 64 20 6d 69 6e | 75 73 20 69 6e 66 69 6e |ward min|us infin|
|000004f0| 69 74 79 0d 09 66 6d 6f | 76 65 2e 6c 09 66 70 30 |ity..fmo|ve.l.fp0|
|00000500| 2c 64 30 09 09 09 3b 20 | 63 6f 6e 76 65 72 74 20 |,d0...; |convert |
|00000510| 74 6f 20 69 6e 74 65 67 | 65 72 0d 09 66 6d 6f 76 |to integ|er..fmov|
|00000520| 65 2e 6c 09 64 31 2c 66 | 70 63 72 09 09 09 3b 20 |e.l.d1,f|pcr...; |
|00000530| 72 65 73 74 6f 72 65 20 | 72 6f 75 6e 64 69 6e 67 |restore |rounding|
|00000540| 20 6d 6f 64 65 0d 09 72 | 74 73 0d 09 64 63 2e 62 | mode..r|ts..dc.b|
|00000550| 09 27 46 6c 6f 6f 72 58 | 54 6f 4c 6f 6e 67 20 27 |.'FloorX|ToLong '|
|00000560| 0d 0d 3b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..;*****|********|
|00000570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000005a0| 0d 0d 09 45 4e 44 50 0d | 09 45 4e 44 0d 00 00 00 |...ENDP.|.END....|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000610| 00 00 00 13 08 6d 61 74 | 6d 75 6c 2e 63 2e 02 00 |.....mat|mul.c...|
|00000620| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 50 00 00 |..TEXTMP|S ...P..|
|00000630| 0d 46 6c 6f 61 74 54 6f | 4c 6f 6e 67 2e 61 02 00 |.FloatTo|Long.a..|
|00000640| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000650| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a9 80 1b 88 00 00 | 00 00 00 00 01 ac 00 00 |........|........|
|00000680| 00 00 00 00 10 00 00 00 | 00 13 0a 6d 61 74 78 70 |........|...matxp|
|00000690| 6f 73 65 2e 63 2e 02 00 | 00 00 54 45 58 54 4d 50 |ose.c...|..TEXTMP|
|000006a0| 53 20 01 00 00 78 00 c0 | 00 13 00 00 00 20 00 00 |S ...x..|..... ..|
|000006b0| 00 00 00 f7 00 00 02 00 | 00 00 00 00 01 7e 00 00 |........|.....~..|
|000006c0| 02 00 9c 23 4a 59 9c 23 | 50 cd 00 00 00 00 6d 16 |...#JY.#|P.....m.|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 f9 00 01 00 00 00 00 | 00 00 00 00 00 f5 00 01 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 10 00 00 00 |........|........|
|00000700| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 01 7f ff |...H..Mo|naco....|
|00000710| 7f ff 00 00 80 00 00 28 | 00 01 39 3c 40 00 60 00 |.......(|..9<@.`.|
|00000720| 30 70 18 88 0c c8 00 06 | 00 04 00 17 fd 89 01 d5 |0p......|........|
|00000730| ff 61 00 17 fd 89 01 d5 | ff 61 a7 43 f7 c1 00 00 |.a......|.a.C....|
|00000740| 00 d3 00 00 00 da 00 00 | 00 14 01 00 00 00 00 1e |........|........|
|00000750| 00 17 fd 89 01 d5 ff 61 | 00 17 fd 89 01 d5 ff 61 |.......a|.......a|
|00000760| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 f4 |.....n..|.n...>..|
|00000780| 2e d8 16 68 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |...h....|.>..MPSR|
|00000790| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 03 f0 ff ff 00 00 00 4c | 00 fa 29 48 00 00 00 00 |.......L|..)H....|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+